<script>on mouseDownPlay ElecGuitar "80s"end mouseDownon mouseUpanswer file "Import from which file?"if it is emptythenexit to HyperCardend ifput it into fileNameopen file fileNameset cursor to busyrepeat with i = 1 to 20set cursor to busyread from file fileName for 25000if it is empty then exit repeatput it after infoput it into bg fld iif number of chars in bg fld i < 25000 thenput return & "•••••• end of text ••••••" & return after bg fld ianswer "The text import is done."else answer "More to come"end repeatclose file fileNamechoose browse toolplay elecGuitar "72e 77e 72e"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>289</top>
<right>502</right>
<bottom>312</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export</name>
<script>on mouseDownPlay ElecGuitar "80s"end mouseDownon mouseUprepeat with i = 1 to 20put fld i after outputTextend repeatask file "Save the text as :" with "Recovered Text"set cursor to busyif it is empty then exit to hyperCardelseput it into outputFileopen file outputFileif the result is emptythen write outputText to file outputFileclose file outputFileend ifchoose browse toolplay elecGuitar "72e 77e 72e"answer "The text export is done."end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>324</left>
<top>51</top>
<right>388</right>
<bottom>69</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Card 1</name>
<script>on mouseUpgo nextend mouseUp</script>
</part>
<name></name>
<script>on closeCardlock screenhideFldunlock screen with visual effect iris close slowend closeCard</script>
</card>
card_4370.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownPlay ElecGuitar "80s"end mouseDownon mouseUpask file "Save the text as :" with "Recovered Text"set cursor to busyif it is empty then exit to hyperCardelseput it into outputFileopen file outputFilerepeat with p = 1 to number of cardsgo card prepeat with q = 1 to number of fieldswrite field q to file outputFileend repeatend repeatclose file outputFileend ifchoose browse toolplay elecGuitar "72e 77e 72e"answer "The text export is done."end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>86</top>
<right>502</right>
<bottom>135</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>7897</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>1,000,000</name>
<script>on mouseDownPlay ElecGuitar "80s"end mouseDownon mouseUpanswer file "Import from which file?"if it is emptythenexit to HyperCardend ifput it into fileNameopen file fileNameset cursor to busyrepeat with i = 1 to 20read from file fileName for 25000end repeatrepeat with i = 1 to 20set cursor to busyread from file fileName for 25000if it is empty then exit repeatput it after infoput it into bg fld iif number of chars in bg fld i < 25000 thenput return & "•••••• end of text ••••••" & return after bg fld ianswer "The text import is done."else answer "More to come"end repeatclose file fileNamechoose browse toolplay elecGuitar "72e 77e 72e"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>324</left>
<top>51</top>
<right>388</right>
<bottom>69</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Card 2</name>
<script>on mouseUpgo nextend mouseUp</script>
</part>
<name></name>
<script>on closeCardlock screenhideFldunlock screen with visual effect iris close slowend closeCard</script>
